#lang racket

(define-struct vec (x y))

(define (check-make-vec x y)
  (cond
    [(and (> x 0) (> y 0)) 
     (make-vec x y)]
    [else (error 'check-make-vec "Invalid parameter!")]
    )
  )

; Test
(define a-vec (check-make-vec 1 5))
(vec-x a-vec)
(vec-y a-vec)